COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE SRCCOM↔
C00004 ENDMK
C⊗;
αXDEFINE SRCCOM⊗↔
αXTERSE⊗C
αXSILENT⊗C
αXstopzero⊗C
αLαF↓α\α∞⊗CαL	⊗;Flush DIRED's goddamn downarrows that screw up SRCCOM
αfHEAD⊗CαAαLαβ0αA	⊗;Put HEAD at top of page, if in file
αXSTOPONE⊗C
αβ∞αZSRCCO2⊗C
α.		⊗;Write out file before quitting
αXreadonly⊗C	⊗;In case user says ESC I now, don't let typeahead diddle file
αXbeep⊗C
αβXSAY Type ESC I within 5 secs to stop here.⊗C
α5αV		⊗;Give viewer a chance to object
αXquit⊗C	⊗;Exit during macro!
αβ⊗↓

αXDEFINE SRCCO2⊗C
αβ0αXIFLT CHARS.⊗C
αCαCαEαUαUαS[αL.αK⊗↔DIF/S/C/D/F/O←α⊗=αDαS[αK⊗↔,α⊗=αD⊗↔αβ⊗↓

αXSET $←SRCCOM⊗C	⊗;Shorter macro name of dollar sign

αXDEFINE %⊗↔
αXTERSE⊗C
αXSILENT⊗C
αXstopzero⊗C
αLαF↓α\α∞⊗CαL	⊗;Flush DIRED's goddamn downarrows that screw up SRCCOM
αfHEAD⊗CαAαLαβ0αA	⊗;Put HEAD at top of page, if in file
αXSTOPONE⊗C
αβ∞αZSRCCO3⊗C
α.		⊗;Write out file before quitting
αXreadonly⊗C	⊗;In case user says ESC I now, don't let typeahead diddle file
αXbeep⊗C
αβXSAY Type ESC I within 5 secs to stop here.⊗C
α5αV		⊗;Give viewer a chance to object
αXquit⊗C	⊗;Exit during macro!
αβ⊗↓

αXDEFINE SRCCO3⊗C
αβ0αXIFLT CHARS.⊗C
αCαCαEαUαUαS[αK⊗↔DIF/6/D/F/O←α⊗=αDαS[αK⊗↔,α⊗=αD⊗↔αβ⊗↓